www.gusucode.com > 云枫工作室企业网站源码 1 > 云枫工作室企业网站源码 1.0/云枫工作室企业网站源码(asp无限制版)1.0/web/admin/Manage_pro1class.asp
<!--#include file="conn.asp"-->
<!--#include file="check.asp"-->
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body>
<!--#include file="top.htm"-->
<br>
<%
select case request("action")
case ""
call main()
case "badd"
call addbclass()
case "bbadd"
call addbbclass()
case "addsave"
call addsave()
case "bedit"
call bedit()
case "beditsave"
call beditsave()
case "bdell"
call bdell()
case "sedit"
call sedit()
end select
%>
<%
sub main()
set rsbclass=server.createobject("adodb.recordset")
sqlbclass="select * from tsm_pro1bc order by Cpx asc"
rsbclass.open sqlbclass,conn,1,1
%>
<table width="90%" border="0" align="center" cellpadding="5" cellspacing="0">
<tr>
<td height="25" align="center" valign="middle" background="img/menu_manage.gif"><font color="#FFFFFF"><b>类 别 管 理</b></font></td>
</tr>
<tr>
<td height="30" align="center" bgcolor="#FFFFFF"><a href="?Action=bbadd">增加一级类</a></td>
</tr>
</table>
<table width="90%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#E0E0E0" class="text">
<tr align="center" bgcolor="#F6F6F6">
<td width="10%" bgcolor="#F6F6F6">排序</td>
<td width="40%" height="25" bgcolor="#F6F6F6">类 别 名 称</td>
<td width="40%">操 作 选 项</td>
</tr>
<%
do while not rsBClass.eof
%>
<tr align="center" bgcolor="#FFFFFF">
<td height="25" align="center"><%= rsbclass("Cpx") %></td>
<td height="25" align="left" valign="middle"> <strong><%= rsbclass("Aname") %></strong></td>
<td height="25"><a href="?Action=bedit&bcid=<%= rsbclass("Aid") %>">修改</a> | <a href="?Action=bdell&bcid=<%= rsbclass("Aid") %>" onClick="javascript:return confirm('[ 操作提示 ]\n\n是否确认删除？删除数据将无法逆回！');">删除</a> </td>
</tr>
<%
rsBclass.movenext
loop
rsbclass.close
set rsbclsss=nothing
%>
</table>
<table width="90%" height="30" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td align="center" valign="middle"><font color="#FF0000">* 注意：删除类别将同时删除该类的所有信息！</font></td>
</tr>
</table>
<%
end sub
%>
<%
sub addbbclass()
set rspaixu=server.createobject("adodb.recordset")
paixusql="select * from Tsm_pro1bc order by cpx desc"
rspaixu.open paixusql,conn,1,1
if not rspaixu.eof then
thelastpaixu=rspaixu("cpx")+1
else
thelastpaixu=1
end if
rspaixu.close
set rspaixu=nothing
%>
<table width="90%" border="0" align="center" cellpadding="5" cellspacing="0">
<form name="myform" method="post" action="?action=addsave">
<tr>
<td height="25" align="center" valign="middle" background="img/menu_manage.gif"><font color="#FFFFFF"><b>添 加 类</b></font></td>
</tr>
<tr>
<td align="center" valign="middle" bgcolor="#FFFFFF"><br>
类名称：
<%if en_switch=0 then%><%else%>(中)<%end if%><input name="Aname" type="text" id="Aname" size="20" maxlength="50">
<%if en_switch=0 then%><%else%>(英)<input name="Anamee" type="text" id="Anamee" size="20" maxlength="50"><%end if%>
排序：
<input name="Cpx" type="text" id="Cpx" size="6" onKeyUp="this.value=this.value.replace(/[^\d]/g,'')" onpaste="return false" value="<%=thelastpaixu%>"></td>
</tr>
<tr<%=hiddentable(0)%>>
<td valign="middle" bgcolor="#FFFFFF" align="center"><br>
类图片：
<input name="Propic" type="text" id="Propic" size="20"> <IFRAME src="Upimage.asp" name=head width=270 marginWidth=0 height=21 marginHeight=0 scrolling=no frameBorder=0 class="red" framespacing=0></IFRAME></td>
</tr>
<tr>
<td height="35" align="center" bgcolor="#FFFFFF"><input name="Submit2" type="submit" id="Submit2" value=" 添 加 ">
<input type="button" name="Submit2" value=" 返 回 " onClick="history.go(-1)"></td>
</tr>
</form>
</table>
<%
end sub
%>
<%
sub addbclass()
dim bcid
bcid=trim(request("bcid"))
bcid=CLng(bcid)
set rs2=server.createobject("adodb.recordset")
sql2="select Aname,Anamee,Aid from tsm_news1bc where Aid="& bcid
rs2.open sql2,conn,1,1
%>
<table width="90%" border="0" align="center" cellpadding="5" cellspacing="0">
<form name="form1" method="post" action="?action=addsave">
<tr>
<td align="center" valign="middle" background="img/menu_manage.gif"><font color="#FFFFFF"><b>添 加 二 级 栏 目</b></font></td>
</tr>
<tr>
<td height="45" align="center" bgcolor="#FFFFFF">在<b><font color="#FF0000">[<%= rs2("Aname") %>]</font></b>中添加子栏目：
<input name="Aid" type="hidden" id="Aid" value="<%=rs2("Aid")%>">
<%if en_switch=1 then%><%else%>(中)<%end if%><input name="bname" type="text" id="bname" size="20" maxlength="50">
<%if en_switch=1 then%><%else%>(英)<input name="bnamee" type="text" id="bnamee" size="20" maxlength="50"><%end if%>
排序：
<input name="Cpx" type="text" id="Cpx" size="6" onKeyUp="this.value=this.value.replace(/[^\d]/g,'')" onpaste="return false"></td>
</tr>
<tr>
<td height="35" align="center" bgcolor="#FFFFFF"><input name="Submit" type="submit" id="Submit" value=" 添 加 ">
<input type="button" name="Submit22" value=" 返 回 " onClick="history.go(-1)"></td>
</tr>
</form>
</table>
<%
end sub
%>
<%
sub bedit()
dim bcid
bcid=trim(request("bcid"))
bcid=CLng(bcid)
set rs2=server.createobject("adodb.recordset")
sql2="select * from tsm_pro1bc where Aid="& bcid
rs2.open sql2,conn,1,1
%>
<table width="90%" border="0" align="center" cellpadding="5" cellspacing="0">
<form name="myform" method="post" action="?action=beditsave">
<tr>
<td height="25" align="center" valign="middle" background="img/menu_manage.gif"><font color="#FFFFFF"><b>修 改 类 名</b></font></td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF"><br>
将<b><font color="#FF0000">[<%= rs2("Aname") %>]</font></b>修改为：
<input name="Aid" type="hidden" id="Aid" value="<%= rs2("Aid") %>">
<%if en_switch=0 then%><%else%>(中)<%end if%><input name="Aname" type="text" id="Aname" value="<%=rs2("Aname") %>" size="20" maxlength="50">
<%if en_switch=0 then%><%else%>(英)<input name="Anamee" type="text" id="Anamee" value="<%=rs2("Anamee") %>" size="20" maxlength="50"><%end if%>
排序：
<input name="Cpx" type="text" id="Cpx" value="<%=rs2("Cpx")%>" size="6" onKeyUp="this.value=this.value.replace(/[^\d]/g,'')" onpaste="return false"></td>
</tr>
<tr<%=hiddentable(0)%>>
<td valign="middle" bgcolor="#FFFFFF" align="center"><br>
类图片：
<input name="Propic" type="text" id="Propic" size="20" value="<%=rs2("Propic")%>"> <IFRAME src="Upimage.asp" name=head width=270 marginWidth=0 height=21 marginHeight=0 scrolling=no frameBorder=0 class="red" framespacing=0></IFRAME></td>
</tr>
<tr>
<td height="35" align="center" bgcolor="#FFFFFF"><input name="Submit" type="submit" id="Submit" value=" 修 改 ">
<input type="button" name="Submit23" value=" 返 回 " onClick="history.go(-1)"></td>
</tr>
</form>
</table>
<%
end sub
%>
<%
sub sedit()
dim scid
scid=trim(request("scid"))
scid=CLng(scid)
set rs2=server.createobject("adodb.recordset")
sql2="select * from Tsm_sc where Bid="& scid
rs2.open sql2,conn,1,1
%>
<table width="90%" border="0" align="center" cellpadding="5" cellspacing="0">
<form name="form1" method="post" action="?action=beditsave">
<tr>
<td height="25" align="center" valign="middle" background="img/menu_manage.gif"><font color="#FFFFFF"><b>修 改 二 级 栏 目 名 称</b></font></td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF"><br>
将子栏目<b><font color="#FF0000">[<%= rs2("Bname") %>]</font></b>修改为：
<input name="Bid" type="hidden" id="Bid" value="<%= rs2("Bid") %>">
<%if en_switch=1 then%><%else%>(中)<%end if%><input name="Bname" type="text" id="Bname" value="<%= rs2("Bname") %>" size="20" maxlength="50">
<%if en_switch=1 then%><%else%>(英)<input name="Bnamee" type="text" id="Bnamee" value="<%= rs2("Bnamee") %>" size="20" maxlength="50"><%end if%>
排序：
<input name="Cpx" type="text" id="Cpx" value="<%= rs2("Cpx") %>" size="6" onKeyUp="this.value=this.value.replace(/[^\d]/g,'')" onpaste="return false">
</td>
</tr>
<tr>
<td height="35" align="center" bgcolor="#FFFFFF"><input name="Submit" type="submit" id="Submit" value=" 修 改 ">
<input type="button" name="Submit24" value=" 返 回 " onClick="history.go(-1)"></td>
</tr>
</form>
</table>
<%
end sub
%>
</body>
</html>
<%
sub addsave()
dim bclassid,sclassname,sclassnamee,Cpx
bclassid=request("Aid")
sclassname=request("Bname")
sclassnamee=request("Bnamee")
Cpx=request("Cpx")
if trim(request("Aname"))="" and trim(request("Aid"))="" then
call ShowAlert("大类名称不可为空，请输入类别名称！","")
ElseIf trim(request("Aname"))="" and trim(request("Aid"))<>"" and trim(request("Bname"))="" Then
call ShowAlert("小类名称不可为空，请输入类别名称！","")
ElseIf trim(request("cpx"))="" and IsNumeric(request("cpx"))=False Then
call ShowAlert("排序必须是数字！","")
else
set rs=server.createobject("adodb.recordset")
if bclassid<>"" then
sql1="select * from Tsm_usersc"
rs.open sql1,conn,1,3
rs.AddNew
rs("Aid") = bclassid
rs("Bname") = sclassname
rs("Bnamee") = sclassnamee
rs("cpx") = cpx
else
sql1="select * from tsm_pro1bc"
rs.open sql1,conn,1,3
rs.AddNew
rs("Aname") = request("Aname")
rs("Anamee") = request("Anamee")
rs("cpx") = cpx
rs("Propic") = request("Propic")
end if
rs.Update
rs.Close
set rs=nothing
conn.close
set conn=nothing
end if
if bclassid<>"" then
call ShowAlert("添加 [ "&sclassname&" ] 成功！","Manage_pro1class.asp")
else
call ShowAlert("添加成功！","Manage_pro1class.asp")
end if
end sub
%>
<%
sub beditsave()
set rs=server.createobject("adodb.recordset")
if request("Aid")<>"" then
sql1="select * from tsm_pro1bc where Aid="& request("Aid")
rs.open sql1,conn,1,3
rs("Aname") = request("Aname")
rs("Anamee") = request("Anamee")
rs("Cpx") = request("Cpx")
rs("Propic") = request("Propic")
else
sql1="select * from Tsm_usersc where Bid="& request("Bid")
rs.open sql1,conn,1,3
rs("Bname") = request("Bname")
rs("Bnamee") = request("Bnamee")
rs("Cpx") = request("Cpx")
end if
rs.update
rs.close
Set rs=nothing
conn.close
Set conn=nothing
call ShowAlert("修改成功！","Manage_pro1class.asp")
end sub
%>
<%
sub bdell
bcid = Request("bcid")
if bcid<>"" then
'删除大类
sql="delete from tsm_pro1bc where Aid=" & bcid
conn.execute sql
'删除属于该大类的子栏目
'sql="delete from Net_sclass where bclassid=" & bcid
'conn.execute sql
'删除属于该大类的文章
'sql="delete from Net_article where bclassid=" & bcid
'conn.execute sql
else
scid=request("scid")
sql="delete from Tsm_pro1sc where Bid=" & scid
conn.execute sql
'删除属于该大类的文章
'sql="delete from Net_article where sclassid=" & scid
'conn.execute sql
end if
response.Redirect("Manage_pro1class.asp")
end sub
%>